home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMCAFExa.lha / AMCAF_Examples / SetRainColourPatch.AMOS / SetRainColourPatch.amosSourceCode
Encoding:
AMOS Source Code  |  1996-01-17  |  929 b   |  30 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *     Patch for AMOSPro.Lib for     *
  4. ' *  unlimited use of Set Rain Color  *
  5. ' *      Written by Chris Hodges      *
  6. ' *                                   *
  7. ' *************************************
  8. '
  9. Screen Open 0,640,256,2,$8000
  10. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  11. Palette 0,$FFF
  12. H$= Extension_8_08D2($FFF84EA8)+ Extension_8_08D2($DCFE51)+ Extension_8_08D2($49F0243)
  13. OLD$=H$+ Extension_8_08C4($FFF)
  14. NEW$=H$+ Extension_8_08C4($FFFF)
  15. F$=Resource$(-1)+Resource$(-14)
  16.  Extension_8_0456 F$,9
  17. AD=Hunt(Start(9) To Start(9)+Length(9),OLD$)
  18. If AD<>0
  19.   Print "Found desired location. Patching and saving."
  20.   Poke$ AD,NEW$
  21.    Extension_8_0472 F$,9
  22.   Print "Now quit and restart AMOS Pro!"
  23. Else 
  24.   AD=Hunt(Start(9) To Start(9)+Length(9),NEW$)
  25.   If AD<>0
  26.     Print "File already patched."
  27.   Else 
  28.     Print "Wrong version of file!"
  29.   End If 
  30. End If